From: Eduard Wiebe Date: Fri, 27 Jan 2012 21:40:44 +0000 (-0800) Subject: * dired.el (dired-mark-files-regexp): Include any subdirectory components. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1089 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d7b54a4e543bb87857c5885190bc22d5efc1d422;p=emacs.git * dired.el (dired-mark-files-regexp): Include any subdirectory components. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5040c10aa0e..ca90e51c290 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-01-27 Eduard Wiebe + + * dired.el (dired-mark-files-regexp): + Include any subdirectory components. (Bug#10445) + 2012-01-27 Mike Lamb (tiny change) * pcmpl-unix.el (pcmpl-ssh-known-hosts): diff --git a/lisp/dired.el b/lisp/dired.el index b39e6e7c93c..3962ef14aa4 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3168,8 +3168,8 @@ object files--just `.o' will mark more than you might think." (dired-mark-if (and (not (looking-at dired-re-dot)) (not (eolp)) ; empty line - (let ((fn (dired-get-filename nil t))) - (and fn (string-match regexp (file-name-nondirectory fn))))) + (let ((fn (dired-get-filename t t))) + (and fn (string-match regexp fn)))) "matching file"))) (defun dired-mark-files-containing-regexp (regexp &optional marker-char)